Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnStart.Click
  Dim i As Integer, Sum As Integer, Terminate As Integer
  Dim NewLine As String

  NewLine = Chr(13) & Chr(10) ' Znak powrotu karetki, znak nowej linii
  Terminate = CInt(txtPasses.Text)  ' Ilo powtrze
  Sum = 0                     ' Czycimy sum narastajc
  i = 1                       ' To bdzie nasz licznik ptli
  txtResult.Text = ""

LoopStart:                    ' etykieta pocztku ptli
  Sum += i                    ' Obliczamy sum narastajc
  txtResult.Text += CStr(Sum) & " (i = " & CStr(i) & ")" & NewLine
  If i < Terminate Then       ' Czy ju zakoczy ptl?
    i += 1                    ' Jeli nie... zwikszamy licznik ptli
    GoTo LoopStart            ' Wykonujemy kolejne powtrzenie
  End If

End Sub
